home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_PubscreenARG.dopus < prev    next >
Text File  |  1993-10-18  |  343b  |  24 lines
  1. /* Eagleplayeransteuerung über Diropus
  2.    (c) 1993 DEFECT
  3.    schaltet auf anderen Pubscreen um
  4. */
  5. options results
  6.  
  7. parse arg aha
  8.  
  9. if (pos('rexx_EP',SHOW('Ports')) = 0) then 
  10.  do
  11.   address 'DOPUS.1'
  12.   toptext 'No Eagleplayer found !'
  13.   exit
  14.  end
  15.  
  16. address 'rexx_EP'
  17. pubscreen aha
  18. aha=result
  19.  
  20. address 'DOPUS.1'
  21. toptext 'Eagleplayer: '||aha
  22.  
  23. exit
  24.